home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / WINDOWS / EZNET.ZIP / DEMO.ZIP / LEGEND.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-11-06  |  7.1 KB  |  228 lines
  1. VERSION 4.00
  2. Begin VB.Form frmLegend 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H00C0C0C0&
  5.    BorderStyle     =   3  'Fixed Dialog
  6.    Caption         =   "Node parameters"
  7.    ClientHeight    =   2535
  8.    ClientLeft      =   1170
  9.    ClientTop       =   1830
  10.    ClientWidth     =   6825
  11.    BeginProperty Font 
  12.       name            =   "MS Sans Serif"
  13.       charset         =   1
  14.       weight          =   700
  15.       size            =   8.25
  16.       underline       =   0   'False
  17.       italic          =   0   'False
  18.       strikethrough   =   0   'False
  19.    EndProperty
  20.    ForeColor       =   &H80000008&
  21.    Height          =   2940
  22.    Left            =   1110
  23.    LinkTopic       =   "Form5"
  24.    ScaleHeight     =   2535
  25.    ScaleWidth      =   6825
  26.    Top             =   1485
  27.    Width           =   6945
  28.    Begin VB.ComboBox ComboAutoSize 
  29.       Height          =   300
  30.       ItemData        =   "LEGEND.frx":0000
  31.       Left            =   2220
  32.       List            =   "LEGEND.frx":000D
  33.       Style           =   2  'Dropdown List
  34.       TabIndex        =   2
  35.       Top             =   1020
  36.       Width           =   3135
  37.    End
  38.    Begin VB.ComboBox ComboAlignment 
  39.       Height          =   300
  40.       ItemData        =   "LEGEND.frx":005C
  41.       Left            =   2220
  42.       List            =   "LEGEND.frx":007B
  43.       Style           =   2  'Dropdown List
  44.       TabIndex        =   1
  45.       Top             =   600
  46.       Width           =   3135
  47.    End
  48.    Begin VB.Frame Frame1 
  49.       Appearance      =   0  'Flat
  50.       BackColor       =   &H00C0C0C0&
  51.       Caption         =   "Node picture"
  52.       BeginProperty Font 
  53.          name            =   "MS Sans Serif"
  54.          charset         =   1
  55.          weight          =   400
  56.          size            =   9.75
  57.          underline       =   -1  'True
  58.          italic          =   0   'False
  59.          strikethrough   =   0   'False
  60.       EndProperty
  61.       ForeColor       =   &H80000008&
  62.       Height          =   855
  63.       Left            =   240
  64.       TabIndex        =   7
  65.       Top             =   1560
  66.       Width           =   6375
  67.       Begin VB.OptionButton Option1 
  68.          Appearance      =   0  'Flat
  69.          BackColor       =   &H00C0C0C0&
  70.          Caption         =   "Rectangle"
  71.          ForeColor       =   &H80000008&
  72.          Height          =   315
  73.          Index           =   0
  74.          Left            =   240
  75.          TabIndex        =   3
  76.          Top             =   360
  77.          Width           =   1365
  78.       End
  79.       Begin VB.OptionButton Option1 
  80.          Appearance      =   0  'Flat
  81.          BackColor       =   &H00C0C0C0&
  82.          Caption         =   "Octogon"
  83.          ForeColor       =   &H80000008&
  84.          Height          =   315
  85.          Index           =   1
  86.          Left            =   1800
  87.          TabIndex        =   10
  88.          TabStop         =   0   'False
  89.          Top             =   360
  90.          Width           =   1365
  91.       End
  92.       Begin VB.OptionButton Option1 
  93.          Appearance      =   0  'Flat
  94.          BackColor       =   &H00C0C0C0&
  95.          Caption         =   "Diamond"
  96.          ForeColor       =   &H80000008&
  97.          Height          =   315
  98.          Index           =   2
  99.          Left            =   3360
  100.          TabIndex        =   9
  101.          TabStop         =   0   'False
  102.          Top             =   360
  103.          Width           =   1365
  104.       End
  105.       Begin VB.OptionButton Option1 
  106.          Appearance      =   0  'Flat
  107.          BackColor       =   &H00C0C0C0&
  108.          Caption         =   "Circle"
  109.          ForeColor       =   &H80000008&
  110.          Height          =   315
  111.          Index           =   3
  112.          Left            =   4860
  113.          TabIndex        =   8
  114.          TabStop         =   0   'False
  115.          Top             =   360
  116.          Width           =   1365
  117.       End
  118.    End
  119.    Begin VB.TextBox Text1 
  120.       Appearance      =   0  'Flat
  121.       Height          =   345
  122.       Left            =   2220
  123.       TabIndex        =   0
  124.       Top             =   180
  125.       Width           =   3135
  126.    End
  127.    Begin VB.CommandButton Command1 
  128.       Appearance      =   0  'Flat
  129.       BackColor       =   &H80000005&
  130.       Caption         =   "&Ok"
  131.       Default         =   -1  'True
  132.       Height          =   405
  133.       Left            =   5640
  134.       TabIndex        =   4
  135.       Top             =   180
  136.       Width           =   955
  137.    End
  138.    Begin VB.CommandButton Command2 
  139.       Appearance      =   0  'Flat
  140.       BackColor       =   &H80000005&
  141.       Caption         =   "&Cancel"
  142.       Height          =   405
  143.       Left            =   5640
  144.       TabIndex        =   5
  145.       Top             =   600
  146.       Width           =   955
  147.    End
  148.    Begin VB.Label Label2 
  149.       Alignment       =   1  'Right Justify
  150.       Caption         =   "Node AutoSize:"
  151.       BeginProperty Font 
  152.          name            =   "MS Sans Serif"
  153.          charset         =   1
  154.          weight          =   400
  155.          size            =   9.75
  156.          underline       =   -1  'True
  157.          italic          =   0   'False
  158.          strikethrough   =   0   'False
  159.       EndProperty
  160.       Height          =   240
  161.       Left            =   120
  162.       TabIndex        =   12
  163.       Top             =   1020
  164.       Width           =   1995
  165.    End
  166.    Begin VB.Label Label3 
  167.       Alignment       =   1  'Right Justify
  168.       Caption         =   "Node Text Alignment:"
  169.       BeginProperty Font 
  170.          name            =   "MS Sans Serif"
  171.          charset         =   1
  172.          weight          =   400
  173.          size            =   9.75
  174.          underline       =   -1  'True
  175.          italic          =   0   'False
  176.          strikethrough   =   0   'False
  177.       EndProperty
  178.       Height          =   240
  179.       Left            =   120
  180.       TabIndex        =   11
  181.       Top             =   600
  182.       Width           =   2000
  183.    End
  184.    Begin VB.Label Label1 
  185.       Alignment       =   1  'Right Justify
  186.       Appearance      =   0  'Flat
  187.       BackColor       =   &H00C0C0C0&
  188.       Caption         =   "Node text:"
  189.       BeginProperty Font 
  190.          name            =   "MS Sans Serif"
  191.          charset         =   1
  192.          weight          =   400
  193.          size            =   9.75
  194.          underline       =   -1  'True
  195.          italic          =   0   'False
  196.          strikethrough   =   0   'False
  197.       EndProperty
  198.       ForeColor       =   &H80000008&
  199.       Height          =   240
  200.       Left            =   120
  201.       TabIndex        =   6
  202.       Top             =   240
  203.       Width           =   2000
  204.    End
  205. Attribute VB_Name = "frmLegend"
  206. Attribute VB_Creatable = False
  207. Attribute VB_Exposed = False
  208. Private Sub Command1_Click()
  209.   Legend = Text1.Text
  210.   AutoSize = ComboAutoSize.ListIndex
  211.   AlignMent = ComboAlignment.ListIndex
  212.   Ok = True
  213.   Unload Me
  214. End Sub
  215. Private Sub Command2_Click()
  216.   Unload Me
  217.   Ok = False
  218. End Sub
  219. Private Sub Form_Load()
  220.   Text1.Text = Legend
  221.   option1(Picnum).Value = True
  222.   ComboAutoSize.ListIndex = AutoSize
  223.   ComboAlignment.ListIndex = AlignMent
  224. End Sub
  225. Private Sub Option1_Click(Index As Integer)
  226.   Picnum = Index
  227. End Sub
  228.